home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Diamond Collection / The Diamond Collection (Software Vault)(Digital Impact).ISO / cdr47 / sch250.zip / DMADDNEW.PRG < prev    next >
Text File  |  1994-12-01  |  1KB  |  55 lines
  1. *****
  2. * Add a new record to the database
  3. *****
  4. clearscrn()
  5. setconfirm(.t.)
  6. setbell(.t.)
  7. superbox(0,0,24,79,.t.,"▓",.f.)
  8. superbox(05,5,17,70,.f.,"",.t.)
  9. do while .t.
  10.     mvlast=space(15)
  11.     mvfirst=space(15)
  12.     mvstreet=space(25)
  13.     mvcity=space(25)
  14.     mvstate=space(2)
  15.     mvzip=space(5)
  16.     mvphone=space(13)
  17.     setcursor(.t.)
  18.     
  19.     *readexit(.f.)
  20.     *mvcolor=setcolor("W+/B,R/X")
  21.  
  22.     sayget(08,8," Last Name: ","mvlast")
  23.     *read()
  24.     *message(mvcolor)
  25.     *setcolor("&mvcolor")
  26.  
  27.     sayget(09,8,"First Name: ","mvfirst")
  28.     sayget(10,8,"    Street: ","mvstreet")
  29.     sayget(11,8,"      City: ","mvcity")
  30.     sayget(12,8,"     State: ","mvstate","","udf('dmstates')")
  31.     sayget(13,8,"       Zip: ","mvzip")
  32.     sayget(14,8,"     Phone: ","mvphone","(999)999-9999")
  33.     read
  34.     
  35.     *readexit()
  36.  
  37.     if lastkey()=27
  38.         return
  39.     endif
  40.     if rlock()
  41.         appblank()
  42.         insert("lastname","mvlast")
  43.         insert("firstname","mvfirst")
  44.         insert("street","mvstreet")
  45.         insert("city","mvcity")
  46.         insert("state","mvstate")
  47.         insert("zip","mvzip")
  48.         insert("phone","mvphone")
  49.         runlock()
  50.     else
  51.         message("Unable to lock record for update")
  52.     endif
  53. enddo
  54. return
  55.